home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
126-150
/
disk_143
/
rim
/
rimsrcami.arc
/
CDCDBS.BLK
< prev
next >
Wrap
Text File
|
1988-01-05
|
914b
|
24 lines
C
C *** / C D C D B S / ***
C
C CURRENT DATABASE PERMANENT FILE DATA - CDC CYBER (BOEING)
C
COMMON /CDCDBS/DBDATA(5,10),NUMOPN
INTEGER DBDATA
INTEGER NUMOPN
C
C VARIABLE DEFINITIONS:
C DBDATA(1,J) -- DATABASE NAMES IN H FORMAT (6HDBNAME)
C DBDATA(2,J) -- DATABASE PERMANENT FILE NAMES IN H FORMAT
C DBDATA(3,J) -- PERMANENT FILE USER NUMBERS IN H FORMAT
C DBDATA(4,J) -- PERMANENT FILE PASSWORDS IN H FORMAT
C DBDATA(5,J) -- DATABASE MODIFICATION INDICATORS
C 0 = USER CONTROLLED FILE HANDLING
C 1 = INDIRECT ACCESS
C 2 = DIRECT ACCESS (READ ONLY)
C 3 = DIRECT ACCESS (WRITE)
C 4 = "DEFINE" DATABASE
C <0 = DATABASE HAS BEEN MODIFIED (IE -1)
C NUMOPN - NUMBER OF DATABASES IN DBDATA
C